home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / animal.zip / ANIMAL.FRM < prev    next >
Text File  |  1986-09-17  |  4KB  |  152 lines
  1. /screen       Written by Doug Goldner  September 1986
  2.     Welcome to     *** ANIMAL ***     written entirely in DataFlex
  3.  
  4.  
  5. Think of an Animal.  I will then ask you questions to try to guess the
  6.  
  7. name of the animal.  If I can not guess the animal, I will ask that you
  8.  
  9. give me some information so that I may be able to identify it in the
  10.  
  11. future.
  12.  
  13.  
  14.                     Please press <RETURN> _
  15.  
  16. /SEARCHING
  17. QUESTION: __________________________________________________________________
  18.  
  19. Please answer (Y)es or (N)o  : _
  20.  
  21.  
  22. The animal I have come up with is called a ______________________________
  23.  
  24.  
  25. Is the animal I have chosen the animal that you had in mind?
  26.  
  27. Please answer (Y)es or (N)o  : _
  28.  
  29.  
  30. /new_animal
  31.  
  32. What is the name of your new animal? ______________________________
  33.  
  34. Enter a question which could distinguish a ______________________________
  35.  
  36. from a ______________________________
  37.  
  38. _________________________________________________________________________
  39.  
  40. What would a ______________________________  answer to this question? _
  41.  
  42. /PLAY_AGAIN
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50. Thank you for playing animal with me.  Would you like to play another
  51.  
  52. game? _
  53.  
  54. /*
  55. INTEGER NEXT_QUESTION OUR_ANIMAL
  56. INTEGER HOLD_NUMBER
  57. INTEGER HOLD_RECNUM NEW_RECNUM OLD_AN
  58. STRING LAST_ANIMAL
  59. STRING LAST_Q
  60. PAGE SCREEN
  61. ACCEPT SCREEN.1
  62. OPEN ANIMALS
  63. OPEN QUESTIONS
  64. TOP:
  65. CLEARFORM SEARCHING
  66. PAGE SEARCHING
  67. CLEAR QUESTIONS
  68. RET_HERE:
  69. FIND GE QUESTIONS.RECNUM
  70. MOVE QUESTIONS.QUESTION TO SEARCHING.1
  71. ACCEPT SEARCHING.2 {CAPSLOCK,CHECK="YN"}
  72. IF SEARCHING.2 EQ 'Y' BEGIN
  73. MOVE 'Y' TO LAST_Q
  74.    IF QUESTIONS.YES_WHICH EQ 'A' BEGIN
  75.       MOVE QUESTIONS.YES_NUMBER TO OUR_ANIMAL
  76.       GOTO GUESS_ANIMAL
  77.    END
  78.    MOVE QUESTIONS.YES_NUMBER TO NEXT_QUESTION
  79. END
  80. IF SEARCHING.2 EQ 'N' BEGIN
  81. MOVE 'N' TO LAST_Q
  82.    IF QUESTIONS.NO_WHICH EQ 'A' BEGIN
  83.       MOVE QUESTIONS.NO_NUMBER TO OUR_ANIMAL
  84.       GOTO GUESS_ANIMAL
  85.    END
  86.    MOVE QUESTIONS.NO_NUMBER TO NEXT_QUESTION
  87. END
  88. IF NEXT_QUESTION EQ 0 GOTO BAD_GUESS
  89. CLEAR QUESTIONS
  90. MOVE NEXT_QUESTION TO QUESTIONS.RECNUM
  91. GOTO RET_HERE
  92.  
  93. GUESS_ANIMAL:
  94. CLEAR ANIMALS
  95. MOVE OUR_ANIMAL TO ANIMALS.RECNUM
  96. FIND GE ANIMALS.RECNUM
  97. MOVE ANIMALS.ANIMAL TO SEARCHING.3
  98. ACCEPT SEARCHING.4 {CAPSLOCK,CHECK="YN"}
  99. IF SEARCHING.4 EQ 'Y' GOTO WE_GOT_IT
  100. BAD_GUESS:
  101. MOVE ANIMALS.RECNUM TO OLD_AN
  102. CLEARFORM NEW_ANIMAL
  103. ACCEPT NEW_ANIMAL.1
  104. MOVE SEARCHING.3 TO NEW_ANIMAL.2
  105. MOVE NEW_ANIMAL.1 TO NEW_ANIMAL.3
  106. ACCEPT NEW_ANIMAL.4
  107. MOVE SEARCHING.3 TO NEW_ANIMAL.5
  108. ACCEPT NEW_ANIMAL.6 {CAPSLOCK,CHECK="YN"}
  109. MOVE QUESTIONS.YES_NUMBER TO HOLD_NUMBER
  110. MOVE QUESTIONS.RECNUM TO HOLD_RECNUM
  111. CLEAR ANIMALS
  112. MOVE NEW_ANIMAL.1 TO ANIMALS.ANIMAL
  113. SAVE ANIMALS
  114. CLEAR QUESTIONS
  115. MOVE NEW_ANIMAL.4 TO QUESTIONS.QUESTION
  116. IF NEW_ANIMAL.6 EQ 'N' BEGIN
  117.    MOVE ANIMALS.RECNUM TO QUESTIONS.YES_NUMBER
  118.    MOVE 'A' TO QUESTIONS.YES_WHICH
  119.    MOVE OLD_AN TO QUESTIONS.NO_NUMBER
  120.    MOVE 'A' TO QUESTIONS.NO_WHICH
  121. END
  122. IF NEW_ANIMAL.6 EQ 'Y' BEGIN
  123.    MOVE ANIMALS.RECNUM TO QUESTIONS.NO_NUMBER
  124.    MOVE 'A' TO QUESTIONS.NO_WHICH
  125.    MOVE OLD_AN TO QUESTIONS.YES_NUMBER
  126.    MOVE 'A' TO QUESTIONS.YES_WHICH
  127. END
  128. SAVE QUESTIONS
  129. MOVE QUESTIONS.RECNUM TO NEW_RECNUM
  130. CLEAR QUESTIONS
  131. MOVE HOLD_RECNUM TO QUESTIONS.RECNUM
  132. FIND GE QUESTIONS.RECNUM
  133. IF LAST_Q EQ 'Y' BEGIN
  134.    MOVE NEW_RECNUM TO QUESTIONS.YES_NUMBER
  135.    MOVE 'Q' TO QUESTIONS.YES_WHICH
  136. END
  137. IF LAST_Q EQ 'N' BEGIN
  138.    MOVE NEW_RECNUM TO QUESTIONS.NO_NUMBER
  139.    MOVE 'Q' TO QUESTIONS.NO_WHICH
  140. END
  141.  
  142. SAVE QUESTIONS
  143.  
  144. WE_GOT_IT:
  145. PAGE PLAY_AGAIN
  146. ACCEPT PLAY_AGAIN.1 {CAPSLOCK,CHECK="YN"}
  147. IF PLAY_AGAIN.1 EQ 'Y' GOTO TOP
  148. ABORT
  149.  
  150.  
  151. KEYPROC KEY.ESCAPE
  152.